********************************************
* NAMA : KASMO ADIYANTO			   *
* EMAIL: kasmoadiyanto@gmail.com	   *
*	 kasmoadiyanto@yahoo.co.id	   *
*	 momo_ch410@yahoo.com		   *
* Blog : http:\\adiyantokasmo.blogspot.com *
********************************************

program nilai;

var
NA : integer;

begin
write ('nilai ujian:');
readln(NA);
if NA >=70 then
writeln('lulus')
else
writeln('tidak lulus');
readln;

end.